cs ct repeat 4 [repeat 100 [fd 1] rt 90]

cs ct make "step 10
repeat 5 [repeat 4 [fd :step rt 90] make "step :step + 10]

cs ct
show [How old R U?]
make "age readword
make "age 13 - :age
show [ U can watch PG 13 movies in just]
show :age
show [year(s)]

cs ct
show [How old R U?]
make "age readword
if :age < 13 [
make "age 13 - :age
show [ U can watch PG 13 moovies in just]
show :age
show [year(s)]
]
if :age >= 13 [ show [U can watch PG 13 movies now]]

cs ct make "B 0 make "G 0 make "next  1
while :next > 0
[
show [Are you a Boy or Girl? (answer 1 for B or 2 for G)]
make "gender readword show :gender
ifelse :gender < 2 
[show [Boy] make "B :B+1 show [B=] show :B show [G=] show :G
]
[show [Girl] make "G :G+1 show [B=] show :B show [G=] show :G
]
show [next? (answer 1 for Y or 0 for No)] make "next readword show :next
]

cs ct show [Please let me know how many vertices you need]
make "n readword
show [Here it is a regular] show :n show [sided polygon]
ifelse :n < 15 [make "step 50] 
[make "step 25]
make "angle 180-(:n-2)*180/:n 
repeat :n [fd :step rt :angle]